home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 23 / AACD 23.iso / AACD / Programming / tek / kn / elate / visual / getevent.asm < prev    next >
Assembly Source File  |  2001-05-12  |  5KB  |  212 lines
  1.  
  2.     .include 'taort'
  3.     .include 'ave/toolkit/toolkit.inc'
  4.     .include 'lib/tek/kn/elate/visual.inc'
  5.  
  6. ;=============================================================================
  7. ;-----------------------------------------------------------------------------
  8. ; 
  9. ;    TEKlib
  10. ;    (C) 1999-2001 TEK neoscientists
  11. ;    all rights reserved.
  12. ;
  13. ;    newev = getevent(visual, &ev, &x, &y, &keycooked,&resize,&buttonstate)
  14. ;
  15. ;-----------------------------------------------------------------------------
  16. ;=============================================================================
  17.  
  18.     tool 'lib/tek/kn/visual/getevent',VP,0
  19.  
  20. ;-----------------------------------------------------------------------------
  21.  
  22.     ent p0 p1 p2 p3 p4 p5 p6 : i0
  23.  
  24.     defbegin
  25.     defp visual,evtp,xp,yp,keycooked,resize,buttonstate
  26.     defp app,avo,ave,msg,pixmap,win,tempp
  27.     defi evt,temp,x,y
  28.     defi cont,neww,newh
  29.  
  30.  
  31.         cpy    0,[resize]
  32.         cpy    0,[buttonstate]
  33.  
  34.         cpy.p    [visual+vis_app],app
  35.         cpy.p    [visual+vis_ave],ave
  36.         cpy.p    [visual+vis_window],win
  37.         cpy.p    [visual+vis_pixmap],pixmap
  38.  
  39.  
  40. _getloop:
  41.         cpy    0,cont
  42.  
  43.         ncall    app,getevent,(app,1.l:avo,msg,evt)
  44.         bcp    avo eq 0,_evokay
  45.         
  46.  
  47.     
  48.     ;    if    evt = EV_GAINEDTOKEN
  49.     ;        if    [msg + EVD_TOKEN] = BFAVO_KEYTOKEN
  50.     ;            tracef "gained key token: %d\n",evt
  51.     ;        else
  52.     ;        ;    tracef "gained other token\n"
  53.     ;        endif
  54.     ;    elseif    evt = EV_LOSTTOKEN
  55.     ;        if    [msg + EVD_TOKEN] = BFAVO_KEYTOKEN
  56.     ;            tracef "lost key token event: %d\n",evt
  57.     ;        ;    qcall    ave/input/checkfocus,(NULL,app:-)
  58.     ;        ;    qcall    ave/input/checkfocus,(NULL,pixmap:-)
  59.     ;            ncall    app,settoken,(app,pixmap,BFAVO_KEYTOKEN:-)
  60.     ;        else
  61.     ;            tracef "lost other token\n"
  62.     ;        endif
  63.  
  64.         if evt = EV_BUTTONUP
  65.             if    avo eq [visual+vis_pixmap]
  66.                 cpy.i    [msg+EVD_RX],x
  67.                 cpy.i    [msg+EVD_RY],y
  68.                 cpy.i    x,[xp]
  69.                 cpy.i    y,[yp]
  70.  
  71.                 cpy.i    2,temp            
  72.                 ncall    ave,settoken,(ave,win,temp:-)            ; activate window!
  73.  
  74.                 cpy.i    [visual+vis_currentbuttonstate],[buttonstate]
  75.                 cpy.i    0,[visual+vis_currentbuttonstate]
  76.                 ;tracef    "buttonup event: %d %d %d %d\n", evt,x,y,temp
  77.             endif
  78.         
  79.         elseif evt = EV_BUTTONDOWN
  80.             if    avo eq [visual+vis_pixmap]
  81.                 cpy.i    [msg+EVD_RX],x
  82.                 cpy.i    [msg+EVD_RY],y
  83.                 cpy.i    x,[xp]
  84.                 cpy.i    y,[yp]
  85.  
  86.                 cpy.i    [msg+EVD_BUTTONS],temp
  87.                 cpy.i    temp,[buttonstate]
  88.                 cpy.i    temp,[visual+vis_currentbuttonstate]
  89.                 ;tracef    "buttondown event: %d %d %d %d\n", evt,x,y,temp
  90.             endif
  91.  
  92.         elseif evt = EV_TRACKING
  93.             if    avo eq [visual+vis_pixmap]
  94.                 cpy.i    [msg+EVD_RX],x
  95.                 cpy.i    [msg+EVD_RY],y
  96.                 cpy.i    x,[xp]
  97.                 cpy.i    y,[yp]
  98.                 ;tracef    "tracking event: %d %d %d\n", evt,x,y
  99.             endif
  100.  
  101.         elseif evt = EV_KEYDOWN
  102.             ;tracef    "keydown. cooked: %x\n", [msg+EVD_KEYCOOKED]
  103.             cpy.i    [msg+EVD_KEYCOOKED],[keycooked]
  104.         
  105.         elseif evt = EV_DIALOG_RESIZE
  106.         
  107.             ;tracef    "*** TEKLIB kn_getevent - resize event\n"
  108.             cpy    1,[resize]
  109.             cpy    1,cont
  110.  
  111.         endif
  112.  
  113.  
  114.         ncall    avo,event,(avo,msg,evt:-)
  115.         ncall    ave,freeevent,(ave,msg:-)
  116.  
  117.         bcn    cont eq 1,_getloop
  118.  
  119.         
  120.         bcp    [resize] eq 0,_oki
  121.  
  122.         cpy.p    [visual+vis_scrollpane],tempp
  123.         ncall    tempp,getsize,(tempp:neww,newh)
  124.         gos    _resize,(visual,neww,newh:i~)
  125.  
  126. _oki:        cpy.i    evt,[evtp]
  127.         cpy.i    1,i0
  128.         ret
  129.  
  130. _evokay:    cpy.i    evt,[evtp]
  131.         cpy.i    0,i0
  132.         ret
  133.  
  134.     defend
  135.  
  136.  
  137.  
  138. _resize:
  139.  
  140.     ent    p0 i0 i1 : i0
  141.  
  142.     defbegin
  143.     defp    visual
  144.     defi    neww,newh
  145.     defi    success
  146.     defp    temp,ave,cnt
  147.  
  148.         cpy.i    0,success
  149.  
  150.         cpy.p    [visual+vis_buffer],temp
  151.         qcall    lib/realloc,(temp,neww*newh*4:temp)
  152.         bcn    temp eq 0,_resize_fail
  153.         qcall    lib/memseti,(temp,[visual+vis_backcolor],neww*newh*4:p~)
  154.         cpy.p    temp,[visual+vis_buffer]
  155.         
  156.         cpy.p    [visual+vis_buffer2],temp
  157.         qcall    lib/realloc,(temp,neww*newh*4:temp)
  158.         bcn    temp eq 0,_resize_fail
  159.         qcall    lib/memseti,(temp,[visual+vis_backcolor],neww*newh*4:p~)
  160.         cpy.p    temp,[visual+vis_buffer2]
  161.  
  162.         cpy.i    neww,[visual+vis_width]
  163.         cpy.i    newh,[visual+vis_height]
  164.  
  165.         cpy.p    [visual+vis_ave],ave
  166.         cpy.p    [visual+vis_content],cnt
  167.  
  168.  
  169.         ;    unlink old pixmap.
  170.  
  171.         cpy.p    [visual+vis_pixmap],temp
  172.         ncall    cnt,sub,(cnt,temp:-)
  173.  
  174.  
  175.         ;    delete old pixmaps.
  176.  
  177.         ncall    temp,_deinit,(temp:-)
  178.         qcall    ave/avo/_delete,(temp:-)
  179.         cpy.p    0,[visual+vis_pixmap]
  180.         cpy.p    [visual+vis_pixmap2],temp
  181.         ncall    temp,_deinit,(temp:-)
  182.         qcall    ave/avo/_delete,(temp:-)
  183.         cpy.p    0,[visual+vis_pixmap2]
  184.  
  185.  
  186.         ;    create new pixmaps.
  187.  
  188.         cpy.p    [visual+vis_buffer],temp
  189.         qcall    ave/avo/pix/32bit/open,(temp,neww,newh,neww*4:temp)
  190.         bcn    temp eq 0,_resize_fail
  191.         cpy.p    temp,[visual+vis_pixmap]
  192.         ncall    cnt,add,(cnt,temp,0:-)
  193.  
  194.         cpy.p    [visual+vis_buffer2],temp
  195.         qcall    ave/avo/pix/32bit/open,(temp,neww,newh,neww*4:temp)
  196.         bcn    temp eq 0,_resize_fail
  197.         cpy.p    temp,[visual+vis_pixmap2]
  198.  
  199.  
  200.         cpy.i    1,success
  201.  
  202. _resize_fail:
  203.         cpy.i    success,i0
  204.         ret
  205.  
  206.     defend
  207.  
  208.     toolend
  209.  
  210. ;-----------------------------------------------------------------------------
  211. ;=============================================================================
  212.